home *** CD-ROM | disk | FTP | other *** search
/ B Soft 4 / B-Soft_4_19xx_Maik__Mike_de_Side_A.d64 / mj's tagebuch (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  31 lines
  1. 1 q=48:r=48:e=48:poke53280,0:poke53281,0:print"[159]":print"[147][196]ieses kleine [208]rogramm wurde 1996 von":print"[205]r.[202]oker geschrieben!":print"[211]ie koennen hiermit kleine [212]agebuchein-":print"tragungen unternehmen.":print"[194]itte kein [210][197][212][213][210][206] und zur [203]orrektur nur"
  2. 2 print"die [196][197][204]-[212]aste benutzen. [193]ndere [212]asten":print"wie z.[194]. [198]-[212]asten oder [195]ursor-[212]asten":print"lassen den [218]eichenindex ungenau werden!":print"[214]or dem [193]bsaven muss eine [196]atendisk ein-";:print"gelegt werden.([195]=)":wait653,2:print"[147][197]in kleines [212]agebuch !"
  3. 3 q=48:e=48:r=48:print"[201]hre [215]ahl:":input"1=[195]odieren, 2=[196]ecodieren";w:print"[194]itte [196]iskette einlegen!":printtab(26)"[212][212].[205][205].[202][202][202][202][145][145]":input"[196]atum ";d$:print"[195]odezahlen x,y,z":input"durch [203]omma getrennt ";a,b,c:dimt(839),t$(839):x=0:ifw=2then25
  4. 4 print"[147]               geschriebebe [218]eichen:":print"[147][212]exteingabe (max.839 [218]eichen)":print"'*' = [197]nde":print">";
  5. 5 gett$(x):ift$(x)=""then5
  6. 6 ift$(x)="*"thengoto19
  7. 7 ift$(x)=chr$(157)thenr=r-2
  8. 8 e=e+1:ift$(x)=chr$(20)thene=e-2
  9. 9 ife=58thene=48:r=r+1
  10. 10 ifr=58thenr=48:q=q+1
  11. 11 ife=47thene=57:r=r-1
  12. 12 ifr=47thenr=57:q=q-1
  13. 13 ifx=839thengoto18
  14. 14 ift$(x)=chr$(13)thengosub30:goto5
  15. 15 ift$(x)=chr$(19)ort$(x)=chr$(147)thenrun
  16. 16 poke1061,q:poke1062,r:poke1063,e:ifq=47thenq=48:e=48:r=48:gosub30:goto5
  17. 17 printt$(x);:x=x+1:goto5
  18. 18 poke1034,80:poke1035,12:poke1036,1:poke1037,20:poke1038,26:poke1039,32:poke1040,22:poke1041,15:poke1042,12:poke1043,12
  19. 19 poke1044,32:poke1045,19:poke1046,1:poke1047,22:poke1048,5:poke1049,14:poke1050,63:fory=55306to55323:pokey,7:nexty
  20. 20 geta$:ifa$=""then20
  21. 21 ifa$="n"thengoto29
  22. 22 ifa$="j"thengoto24
  23. 23 goto20
  24. 24 open1,8,2,d$+",s,w":print#1,x:fori=0tox-1:b=b+(a*c):print#1,asc(t$(i))+c+b:nexti:close1:goto27
  25. 25 print"[147]>";:open1,8,2,d$+",s,r":input#1,x:fori=0tox-1:b=b+(a*c):input#1,t(i):t(i)=(t(i)-b)-c:if(i)<0ort(i)>255thenclose1:print"falsche [197]ingabe":goto27
  26. 26 printchr$(t(i));:nexti:close1
  27. 27 geta$:ifa$=""then27
  28. 28 print"[147]":print"[201]hren [193]ufforderungen wurde [198]olge":print"geleistet.                      ":print"[196]ruecken [211]ie [195]ommodore, um das ":print"[208]rogramm neu zu starten!":wait653,2
  29. 29 run3
  30. 30 poke1034,6:poke1035,1:poke1036,12:poke1037,19:poke1038,3:poke1039,8:poke1040,5:poke1041,32:poke1042,69:poke1043,9:poke1044,14:poke1045,7:poke1046,1:poke1047,2:poke1048,5:ford=55306to55321:poked,7:nextd:forn=1to500:nextn:ford=1034to1054:poked,32:nextd:return
  31.